home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / UTILITY.EXE / EOF-TEST.BAS < prev    next >
BASIC Source File  |  1991-01-20  |  535b  |  15 lines
  1. COLOR,31
  2. CLS
  3. ONERRORGOSUB65535 'equivalent of /e/x in QB
  4. INPUT"File name";FI$
  5. OPEN"I",1,FI$ ' file ending with EOF (1AH) / without EOF no (1AH)
  6. LONGIF ERROR=259 'Check for file validity
  7. PRINT"File not found"
  8. END
  9. ENDIF
  10. WHILEERROR=0 'spaces around keywords not necessary in ZB, but if you
  11. INPUT#1,A$    'want to use keywords in variable names you must select
  12. PRINTA$,ERROR 'spaces around keywords from the CONFIGURATION menu
  13. WEND
  14. PRINT"All Done"
  15.